home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -serious- / programming / basic / mildred / lha / mildredtests.lha / MildredTest.ascii < prev    next >
Text File  |  1998-11-01  |  5KB  |  169 lines
  1. WBStartup
  2.  
  3. ;Test Mildred
  4.  
  5. FindScreen 0
  6. Window 0,16,16,500,550,$2|$4|$400,"Test",0,1
  7. WindowOutput 0
  8. InitBank 0,(320*256)+16,$10001
  9.  
  10. MReservec2pWindows 3
  11. MReserveBitmaps 3
  12. MReserveShapes 3
  13.  
  14. MAutoCookie On
  15. MAutoStencil On
  16. MAutoUsec2pWindows On
  17. MAutoUseShapes On
  18. MAutoUseBitmaps On
  19. MAutoShapeWrap Off
  20. MAutoBitmapWrap Off
  21. MAutoShapeClip On
  22. MAutoBitmapClip Off
  23.  
  24. NPrint "Shapedata: $",Hex$(MShape(0,32,64))
  25. MFreeCookie 0
  26. MMakeCookie 0
  27. MShapeClip 0,16,16,MShapeWidth(0)-16,MShapeHeight(0)-16
  28. a.l=MAddrShape(0)
  29. NPrint "Shape:   $",Hex$(a)
  30. NPrint "Width:   ",NPeekW(a)
  31. NPrint "Height:  ",NPeekW(a+2)
  32. NPrint "LineMod: ",NPeekW(a+4)
  33. NPrint "Clipping:",NPeekB(a+6)
  34. NPrint "Wrapping:",NPeekB(a+7)
  35. NPrint "Data:    $",Hex$(NPeekL(a+8))
  36. NPrint "Stencil: $",Hex$(NPeekL(a+12))
  37. NPrint "XHandle: ",NPeekW(a+16)
  38. NPrint "YHandle: ",NPeekW(a+18)
  39. NPrint "DMem:    $",Hex$(NPeekL(a+20))
  40. NPrint "DBytes:  ",NPeekL(a+24)
  41. NPrint "SMem:    $",Hex$(NPeekL(a+28))
  42. NPrint "SBytes:  ",NPeekL(a+32)
  43. NPrint "DHere:   ",NPeekB(a+36)
  44. NPrint "SHere:   ",NPeekB(a+37)
  45. NPrint "ClipLMod:",NPeekW(a+38)
  46. NPrint "ClipLeft:",NPeekW(a+40)
  47. NPrint "ClipTop: ",NPeekW(a+42)
  48. NPrint "ClipWidth",NPeekW(a+44)
  49. NPrint "ClipHight",NPeekW(a+46)
  50. NPrint "ClipBytes",NPeekL(a+48)
  51. NPrint "WrapBytes",NPeekL(a+52)
  52. NPrint "MChunkyShapeWidth is ",MShapeWidth(0)
  53. NPrint "MChunkyShapeHeight is ",MShapeHeight(0)
  54. NPrint "Current shape: ",MUsedShape
  55. NPrint " "
  56. MShapeWindow 0,2,8,8,32-16,64-8
  57. MCludgeShapeStruct 2,1
  58. MFreeCookies
  59. MMakeCookies 1,2
  60. a.l=MAddrShape(1)
  61. NPrint "Shape:   $",Hex$(a)
  62. NPrint "Width:   ",NPeekW(a)
  63. NPrint "Height:  ",NPeekW(a+2)
  64. NPrint "LineMod: ",NPeekW(a+4)
  65. NPrint "Clipping:",NPeekB(a+6)
  66. NPrint "Wrapping:",NPeekB(a+7)
  67. NPrint "Data:    $",Hex$(NPeekL(a+8))
  68. NPrint "Stencil: $",Hex$(NPeekL(a+12))
  69. NPrint "XHandle: ",NPeekW(a+16)
  70. NPrint "YHandle: ",NPeekW(a+18)
  71. NPrint "DMem:    $",Hex$(NPeekL(a+20))
  72. NPrint "DBytes:  ",NPeekL(a+24)
  73. NPrint "SMem:    $",Hex$(NPeekL(a+28))
  74. NPrint "SBytes:  ",NPeekL(a+32)
  75. NPrint "DHere:   ",NPeekB(a+36)
  76. NPrint "SHere:   ",NPeekB(a+37)
  77. NPrint "ClipLMod:",NPeekW(a+38)
  78. NPrint "ClipLeft:",NPeekW(a+40)
  79. NPrint "ClipTop: ",NPeekW(a+42)
  80. NPrint "ClipWidth",NPeekW(a+44)
  81. NPrint "ClipHight",NPeekW(a+46)
  82. NPrint "ClipBytes",NPeekL(a+48)
  83. NPrint "WrapBytes",NPeekL(a+52)
  84. NPrint "MChunkyShapeWidth is ",MShapeWidth(1)
  85. NPrint "MChunkyShapeHeight is ",MShapeHeight(1)
  86. NPrint "Current shape: ",MUsedShape
  87. NPrint " "
  88. NPrint "Press mouse..."
  89. MouseWait
  90. WCls
  91. WLocate 0,0
  92.  
  93. NPrint "Bank address: $",Hex$(Bank(0))
  94. ;NPrint "CludgeBitmapdata: $",Hex$(MCludgeBitmap(0,320,256,Bank(0)))
  95. NPrint "CludgeBitmapdata: $",Hex$(MShapesBitmap(1,0))
  96. MBitmapShape 0,1
  97. MFreeStencil 0
  98. MMakeStencil 0
  99. MBitmapClip 0,4,8,MBitmapWidth(0)-4,MBitmapHeight(0)-8
  100. a.l=MAddrBitmap(0)
  101. NPrint "Bitmap:  $",Hex$(a)
  102. NPrint "Width:   ",NPeekW(a)
  103. NPrint "Height:  ",NPeekW(a+2)
  104. NPrint "LineMod: ",NPeekW(a+4)
  105. NPrint "Clipping:",NPeekB(a+6)
  106. NPrint "Wrapping:",NPeekB(a+7)
  107. NPrint "Data:    $",Hex$(NPeekL(a+8))
  108. NPrint "Stencil: $",Hex$(NPeekL(a+12))
  109. NPrint "XHandle: ",NPeekW(a+16)
  110. NPrint "YHandle: ",NPeekW(a+18)
  111. NPrint "DMem:    $",Hex$(NPeekL(a+20))
  112. NPrint "DBytes:  ",NPeekL(a+24)
  113. NPrint "SMem:    $",Hex$(NPeekL(a+28))
  114. NPrint "SBytes:  ",NPeekL(a+32)
  115. NPrint "DHere:   ",NPeekB(a+36)
  116. NPrint "SHere:   ",NPeekB(a+37)
  117. NPrint "ClipLMod:",NPeekW(a+38)
  118. NPrint "ClipLeft:",NPeekW(a+40)
  119. NPrint "ClipTop: ",NPeekW(a+42)
  120. NPrint "ClipWidth",NPeekW(a+44)
  121. NPrint "ClipHight",NPeekW(a+46)
  122. NPrint "ClipBytes",NPeekL(a+48)
  123. NPrint "WrapBytes",NPeekL(a+52)
  124. NPrint "MChunkyBitmapWidth is ",MBitmapWidth(0)
  125. NPrint "MChunkyBitmapHeight is ",MBitmapHeight(0)
  126. NPrint "Current bitmap: ",MUsedBitmap
  127. NPrint " "
  128. MBitmapWindow 0,1,8,0,MBitmapWidth(0)-8,MBitmapHeight(0)-8
  129. MCludgeBitmapStruct 1,2
  130. MFreeStencils
  131. MMakeStencils 1,2
  132. MBitmapClip 2,4,8,MBitmapWidth(2)-4,MBitmapHeight(2)-8,On
  133. a.l=MAddrBitmap(2)
  134. NPrint "Bitmap:  $",Hex$(a)
  135. NPrint "Width:   ",NPeekW(a)
  136. NPrint "Height:  ",NPeekW(a+2)
  137. NPrint "LineMod: ",NPeekW(a+4)
  138. NPrint "Clipping:",NPeekB(a+6)
  139. NPrint "Wrapping:",NPeekB(a+7)
  140. NPrint "Data:    $",Hex$(NPeekL(a+8))
  141. NPrint "Stencil: $",Hex$(NPeekL(a+12))
  142. NPrint "XHandle: ",NPeekW(a+16)
  143. NPrint "YHandle: ",NPeekW(a+18)
  144. NPrint "DMem:    $",Hex$(NPeekL(a+20))
  145. NPrint "DBytes:  ",NPeekL(a+24)
  146. NPrint "SMem:    $",Hex$(NPeekL(a+28))
  147. NPrint "SBytes:  ",NPeekL(a+32)
  148. NPrint "DHere:   ",NPeekB(a+36)
  149. NPrint "SHere:   ",NPeekB(a+37)
  150. NPrint "ClipLMod:",NPeekW(a+38)
  151. NPrint "ClipLeft:",NPeekW(a+40)
  152. NPrint "ClipTop: ",NPeekW(a+42)
  153. NPrint "ClipWidth",NPeekW(a+44)
  154. NPrint "ClipHight",NPeekW(a+46)
  155. NPrint "ClipBytes",NPeekL(a+48)
  156. NPrint "WrapBytes",NPeekL(a+52)
  157. NPrint "MChunkyBitmapWidth is ",MBitmapWidth(0)
  158. NPrint "MChunkyBitmapHeight is ",MBitmapHeight(0)
  159. NPrint "Current bitmap: ",MUsedBitmap
  160. NPrint " "
  161.  
  162. MUseShape 0
  163. MUseBitmap 0
  164.  
  165. MFreec2pWindows 0,2
  166. MFreeShapes 0,2
  167. MFreeBitmaps 0,2
  168.  
  169.